﻿Public Class frmDangNhap
    
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click
        Dim TK As New List(Of TaiKhoanNguoiDungDTO)
        If Not txtUserName.Text = "" Then
            If Not txtPassword.Text = "" Then
                Dim username As String = txtUserName.Text
                Dim password As String = txtPassword.Text
                TK = TaiKhoanNguoiDungBUS.GetByID(username)
                If TK.Count = 1 Then
                    If TK(0).strMatKhau = password Then
                        If TK(0).iMaLoaiTaiKhoan = 1 Then
                            MessageBox.Show("Bạn đăng nhập thành công!! ", "Thông báo ")
                            frmMain.PhanQuyenQuanLy()
                            frmMain.lbxinchao.Text = "Xin chào " & TK(0).strTenTaiKhoan

                        Else
                            MessageBox.Show("Bạn đăng nhập thành công!! ", "Thông báo ")
                            frmMain.PhanQuyenNghiepVu()
                            frmMain.lbxinchao.Text = "Xin chào " & TK(0).strTenTaiKhoan
                      

                        End If
                        Me.Close()
                    Else
                        lbThongBaoLoi.Text = "Mật khẩu không đúng !! "

                    End If

                Else
                    lbThongBaoLoi.Text = "Tên đăng nhập không đúng !!"
                End If
            Else
                MessageBox.Show("Vui lòng nhập mật khẩu!", "Thông báo !")
            End If
        Else
            MessageBox.Show("Vui lòng nhập vào tên đăng nhập ! ", " Thông báo")
        End If
    End Sub



End Class